1 POKE775,81:POKE808,225:REM"[141][147]
10 [151]53280,0:[151]53281,0:[153]"LOAD":[143]"GOSUBLOAD
11 GOSUB60000:PRINT"[159]":REM"[141][147]
12 A$[178]"SEBASTIAN KULMA":TA[178]19:[141]100:[143]"GOSUBLOAD
13 GOSUB60000:PRINT"[156]":REM"[141][147]
14 A$[178]"PRESENTS:":TA[178]19:[141]100:[143]"GOSUBLOAD
15 GOSUB60000:PRINT"":REM"[141][147]
16 A$[178]"THE VIDEO LIBRARY":TA[178]19:[141]100:[141]17:[137]38:[143]"GOSUBLOAD
17 GOSUB60000:PRINT"":REM"[141][147]
18 [153][163]13)"TOTOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
19 PRINTTAB(12)"[159][172]  HIT RETURN  [146]":REM"[141][147]
20 [153][163]12)"OPENLOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW":[143]"GOSUBLOAD
21 GETR$:IFR$=CHR$(13)THENRETURN:REM"[141][147]
22 [137]21:[143]"GOSUBLOAD
23 REM SEARCH:REM"[141][147]
24 [153]"LOADVERIFY":[143]"GOSUBLOAD
26 A$="<1> [151] SEARCH IN A FILE   ":ZZ=12:GOSUB800:REM"[141][147]
28 A$[178]"<2> POKE SEARCH IN A FIELD    ":ZZ[178]12:[141]800:Z2[178]1:[143]"GOSUBLOAD
29 A$="<B> [151] BACK     ":ZZ=20:GOSUB800:REM"[141][147]
30 [161]T$:[143]"GOSUBLOAD
31 IFT$="1"THEN35:REM"[141][147]
32 [139]T$[178]"2"[167]36:[143]"GOSUBLOAD
33 IFT$="B"THEN700:REM"[141][147]
34 [137]30:[143]"GOSUBLOAD
35 ZY=1:GOSUB700:GOSUB57500:GOTO14000:REM"[141][147]
36 ZY[178]1:[141]700:[141]57500:[137]45000:[143]"GOSUBLOAD
37 RUN:REM"[141][147]
38 [153]"LOADVERIFY DO YOU WANT SEE HOW TO USE THE PROGRAM?":[153][163]17)"(Y/N)":[143]"GOSUBLOAD
39 GETT$:IFT$="Y"THEN50:REM"[141][147]
40 [139]T$[178]"N"[167]110:[143]"GOSUBLOAD
41 GOTO39:REM"[141][147]
50 [153]"LOAD";:[143]"GOSUBLOAD
55 PRINT"[149] MOVIE NAME":REM"[141][147]
56 [153]:[143]"GOSUBLOAD
57 PRINT"[159] SPACEBALLS[149][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":REM"[141][147]
58 [153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
59 PRINT:REM"[141][147]
60 [153] " CASSETTE NUMBER IS OPEN8VERIFYTOTOTO":[143]"GOSUBLOAD
61 PRINT:REM"[141][147]
62 [153] " MOVIE TYPE ISOPEN COMEDYVERIFYTOTOTOTOTOTOTO":[143]"GOSUBLOAD
63 PRINT:REM"[141][147]
64 [153] " POSITION IS OPEN1STVERIFY ON THE TAPE":[143]"GOSUBLOAD
65 PRINT:REM"[141][147]
66 [153] " COUNTER NUMBER IS OPEN0000":[143]"GOSUBLOAD
67 PRINT" THIS IS THE WAY YOU CAN USE THE PROGRAM":REM"[141][147]
68 [153]" OPENTHE REST IS VERY EASY. JUST FALLOW THE":[143]"GOSUBLOAD
69 PRINT" [159]INSTRUCTIONS. HAVE FUN. :)[145][145]":REM"[141][147]
70 [141]17:[137]110:[143]"GOSUBLOAD
98 END:REM"[141][147]
99 [137]110:[143]"GOSUBLOAD
100 PRINT"":REM"[141][147]
101 X[178][195](A$):[139]((X[173]2)[179][177][181]((X[173]2)))[167]A$[178](" "[170]A$):[137]101:[143]"GOSUBLOAD
102 I=1:FORI=ITO(X/2):PRINTTAB((TA-I)):PRINTLEFT$(A$,I);:REM"[141][147]
103 [153][201](A$,I):[153]"ON";:[129]X[178]1[164]2:[130]:[130]:[142]:[143]"GOSUBLOAD
110 V1$="VIDEO 1":REM"[141][147]
112 V2$[178]"VIDEO 2":[143]"GOSUBLOAD
120 RL=97:REM"[141][147]
125 KL[178]33:[143]"GOSUBLOAD
127 KF=1:REM"[141][147]
130 T[178]6:[143]"GOSUBLOAD
135 AM=FRE(0)-(FRE(0)<0)*256*256:MAXK=INT((AM-2048)/(KL+4)):REM"[141][147]
145 [143]:[143]"GOSUBLOAD
160 SW=38:REM"[141][147]
170 [141]58000:[143]"GOSUBLOAD
171 BK$=CHR$(157):REM"[141][147]
172 CR$[178][199](13):[143]"GOSUBLOAD
173 BC$=CHR$(157):REM"[141][147]
175 [134] A$(MAXK):[143]"GOSUBLOAD
180 CL$=CHR$(147):REM"[141][147]
185 [134] F$(T),F(T):[143]"GOSUBLOAD
190 D$=CHR$(94):FORX=1TOKL:D$=D$+" ":NEXTX:REM"[141][147]
205 [150] [165]H(X)[178][181](X[173]256):[150] [165]L(X)[178]X[171][165]H(X)[172]256:[143]"GOSUBLOAD
207 CLOSE3:OPEN 3,8,15:REM"[141][147]
210 [160]1:[159] 1,8,2,V1$[170]",L,"[170][199](RL):[143]"GOSUBLOAD
215 CLOSE1:REM"[141][147]
220 [160]2:[159] 2,8,2,V2$[170]",L,"[170][199](KL):[143]"GOSUBLOAD
222 FORX=1TOMAXK:REM"[141][147]
225 HX[178][165]H(X):LX[178][165]L(X):[152]3,"P"[199](2)[199](LX)[199](HX)[199](1):[143]"GOSUBLOAD
228 INPUT#3,E,E$,TT,SS:IFE=50THEN240:REM"[141][147]
230 [132]2,A$(X):[139]A$(X)[178][199](255)[167]240:[143]"GOSUBLOAD
235 NEXTX:REM"[141][147]
240 EF[178]X[171]1:[143]"GOSUBLOAD
245 A$(X)="":REM"[141][147]
250 [160]2:[143]"GOSUBLOAD
300 PRINTCL$;:REM"[141][147]
301 [134] CX( 6 ),CY( 6 ),FL( 6 ),TY$( 6 ):[143]"GOSUBLOAD
302 FL(1)=33:CY(1)=7:CX(1)=2:TY$(1)="A":REM"[141][147]
303 FL(2)[178]33:CY(2)[178]8:CX(2)[178]2:TY$(2)[178]"A":[143]"GOSUBLOAD
304 FL(3)=4:CY(3)=10:CX(3)=21:TY$(3)="N":REM"[141][147]
305 FL(4)[178]13:CY(4)[178]12:CX(4)[178]16:TY$(4)[178]"A":[143]"GOSUBLOAD
306 FL(5)=3:CY(5)=14:CX(5)=14:TY$(5)="A":REM"[141][147]
307 FL(6)[178]4:CY(6)[178]16:CX(6)[178]20:TY$(6)[178]"N":[143]"GOSUBLOAD
700 PRINT"[147]";:REM"[141][147]
702 [153]"OPEN              VIDEO LIBRARY":[143]"GOSUBLOAD
703 PRINT:REM"[141][147]
704 [153]:[143]"GOSUBLOAD
705 PRINT"[149] MOVIE NAME":REM"[141][147]
706 [153]:[143]"GOSUBLOAD
707 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":REM"[141][147]
708 [153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
709 PRINT:REM"[141][147]
710 [153] " CASSETTE NUMBER IS TOTOTOTO":[143]"GOSUBLOAD
711 PRINT:REM"[141][147]
712 [153] " MOVIE TYPE IS TOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
713 PRINT:REM"[141][147]
714 [153] " POSITION IS TOTOTO ON THE TAPE":[143]"GOSUBLOAD
715 PRINT:REM"[141][147]
716 [153] " COUNTER NUMBER IS TOTOTOTO":[143]"GOSUBLOAD
717 IFZY=1THENZY=0:RETURN:REM"[141][147]
718 [137]4000:[143]"GOSUBLOAD
800 FORZ=ZZTO1STEP-1:PRINTTAB(Z);A$"[145]":FORG=1TO25:NEXT:NEXT:PRINT"":RETURN:REM"[141][147]
4000 [143] ...BEGIN MAINLINE:[143]"GOSUBLOAD
4002 REM:REM"[141][147]
4003 UPDATE$[178]"":[143]"GOSUBLOAD
4004 FORX=1TOT:F$(X)="":F(X)=0:NEXTX:REM ...CLEAR FIELDS:REM"[141][147]
4005 [141]57500:[153]"<A>POKE ADD A MOVIE  <G>POKE GET A MOVIE":[143]"GOSUBLOAD
4006 PRINT"<S>[151] SEARCH       <E>[151] END ";:REM"[141][147]
4010 TY$[178]"A":FL[178]1:[143]"GOSUBLOAD
4015 GOSUB21000:REM"[141][147]
4020 [139]T$[178]"A"[167]4100:[143]"GOSUBLOAD
4025 IFT$="G"THENUPDATE$="YES":GOTO15000:REM"[141][147]
4030 [139]T$[178]"E"[167]40000:[143]"GOSUBLOAD
4035 IFT$<>"S"THEN4040:REM"[141][147]
4036 [141]57500:[137]24:[143]"GOSUBLOAD
4040 REM:REM"[141][147]
4050 [137]700:[143]"GOSUBLOAD
4099 REM:REM"[141][147]
4100 [143] ...START OF INPUT:[143]"GOSUBLOAD
4101 REM:REM"[141][147]
4103 [143]:[143]"GOSUBLOAD
4104 REM:REM"[141][147]
4105 [143] FIELD NUMBER  1  IS ENTER MOVIE NAME:[143]"GOSUBLOAD
4110 REM FIELD LENGTH IS  33 :REM"[141][147]
4115 [143] FIELD TYPE IS A:[143]"GOSUBLOAD
4120 CY= 6 :CX= 1 :GOSUB57000:REM"[141][147]
4121 [129]X[178]1[164] 33 :[153][199](46);:[130]X:CY[178] 6 :[143]"GOSUBLOAD
4122 CX= 1 :GOSUB57000:REM"[141][147]
4125 FL[178]  33 :[143]"GOSUBLOAD
4130 TY$= "A":REM"[141][147]
4135 [141] 21000:[143]"GOSUBLOAD
4140 IF LEN(T$)=0 THEN  4155 :REM"[141][147]
4142 [139] [198](T$)[178]60 [167] 700:[143]"GOSUBLOAD
4145 F$( 1 ) = T$:REM"[141][147]
4155 [139][200](F$( 1 ),1)[178][199](32)[167]F$( 1 )[178][202](F$( 1 ),2):[137]  4155 :[143]"GOSUBLOAD
4160 F$( 1 )=F$( 1 )+MID$(BS$,1, 33 -LEN(F$( 1 ))):F( 1 )=VAL(F$( 1 )):REM"[141][147]
4165 K$[178]F$( 1 ):[143]"GOSUBLOAD
4170 CY= 6 :CX= 1 :GOSUB57000:PRINT F$( 1 );:REM"[141][147]
4203 [143]:[143]"GOSUBLOAD
4204 REM:REM"[141][147]
4205 [143] FIELD NUMBER  2  IS ENTER MOVIE NAME:[143]"GOSUBLOAD
4210 REM FIELD LENGTH IS  33 :REM"[141][147]
4215 [143] FIELD TYPE IS A:[143]"GOSUBLOAD
4220 CY= 7 :CX= 1 :GOSUB57000:REM"[141][147]
4221 [129]X[178]1[164] 33 :[153][199](46);:[130]X:CY[178] 7 :[143]"GOSUBLOAD
4222 CX= 1 :GOSUB57000:REM"[141][147]
4225 FL[178]  33 :[143]"GOSUBLOAD
4230 TY$= "A":REM"[141][147]
4235 [141] 21000:[143]"GOSUBLOAD
4240 IF LEN(T$)=0 THEN  4255 :REM"[141][147]
4242 [139] [198](T$)[178]60 [167]  4105 :[143]"GOSUBLOAD
4245 F$( 2 ) = T$:REM"[141][147]
4255 [139][200](F$( 2 ),1)[178][199](32)[167]F$( 2 )[178][202](F$( 2 ),2):[137]  4255 :[143]"GOSUBLOAD
4260 F$( 2 )=F$( 2 )+MID$(BS$,1, 33 -LEN(F$( 2 ))):F( 2 )=VAL(F$( 2 )):REM"[141][147]
4270 CY[178] 7 :CX[178] 1 :[141]57000:[153] F$( 2 );:[143]"GOSUBLOAD
4303 REM:REM"[141][147]
4304 [143]:[143]"GOSUBLOAD
4305 REM FIELD NUMBER  3  IS ENTER CASSETTE NUMBER:REM"[141][147]
4310 [143] FIELD LENGTH IS  4 :[143]"GOSUBLOAD
4315 REM FIELD TYPE IS N:REM"[141][147]
4320 CY[178] 9 :CX[178] 20 :[141]57000:[143]"GOSUBLOAD
4321 FORX=1TO 4 :PRINTCHR$(46);:NEXTX:CY= 9 :REM"[141][147]
4322 CX[178] 20 :[141]57000:[143]"GOSUBLOAD
4325 FL=  4 :REM"[141][147]
4330 TY$[178] "N":[143]"GOSUBLOAD
4335 GOSUB 21000:REM"[141][147]
4340 [139] [195](T$)[178]0 [167]  4355 :[143]"GOSUBLOAD
4342 IF ASC(T$)=60 THEN  4205 :REM"[141][147]
4343 [141] 23000: [143] .. NUMERIC CHECK ...:[143]"GOSUBLOAD
4344 IF N=0 THEN  4305 :REM"[141][147]
4345 F$( 3 ) [178] T$:[143]"GOSUBLOAD
4353 F( 3 )=VAL(F$( 3 )):REM"[141][147]
4355 [139][200](F$( 3 ),1)[178][199](32)[167]F$( 3 )[178][202](F$( 3 ),2):[137]  4355 :[143]"GOSUBLOAD
4356 F$( 3 )=MID$(F$( 3 ),1, 4 ):REM"[141][147]
4360 F$( 3 )[178]F$( 3 )[170][202](BS$,1, 4 [171][195](F$( 3 ))):F( 3 )[178][197](F$( 3 )):[143]"GOSUBLOAD
4370 CY= 9 :CX= 20 :GOSUB57000:PRINT F$( 3 );:REM"[141][147]
4403 [143]:[143]"GOSUBLOAD
4404 REM:REM"[141][147]
4405 [143] FIELD NUMBER  4  IS ENTER MOVIE TYPE:[143]"GOSUBLOAD
4410 REM FIELD LENGTH IS  13 :REM"[141][147]
4415 [143] FIELD TYPE IS A:[143]"GOSUBLOAD
4420 CY= 11 :CX= 15 :GOSUB57000:REM"[141][147]
4421 [129]X[178]1[164] 13 :[153][199](46);:[130]X:CY[178] 11 :[143]"GOSUBLOAD
4422 CX= 15 :GOSUB57000:REM"[141][147]
4425 FL[178]  13 :[143]"GOSUBLOAD
4430 TY$= "A":REM"[141][147]
4435 [141] 21000:[143]"GOSUBLOAD
4440 IF LEN(T$)=0 THEN  4455 :REM"[141][147]
4442 [139] [198](T$)[178]60 [167]  4305 :[143]"GOSUBLOAD
4445 F$( 4 ) = T$:REM"[141][147]
4455 [139][200](F$( 4 ),1)[178][199](32)[167]F$( 4 )[178][202](F$( 4 ),2):[137]  4455 :[143]"GOSUBLOAD
4460 F$( 4 )=F$( 4 )+MID$(BS$,1, 13 -LEN(F$( 4 ))):F( 4 )=VAL(F$( 4 )):REM"[141][147]
4470 CY[178] 11 :CX[178] 15 :[141]57000:[153] F$( 4 );:[143]"GOSUBLOAD
4503 REM:REM"[141][147]
4504 [143]:[143]"GOSUBLOAD
4505 REM FIELD NUMBER  5  IS EX  1ST,2ND OR 3RD:REM"[141][147]
4510 [143] FIELD LENGTH IS  3 :[143]"GOSUBLOAD
4515 REM FIELD TYPE IS A:REM"[141][147]
4520 CY[178] 13 :CX[178] 13 :[141]57000:[143]"GOSUBLOAD
4521 FORX=1TO 3 :PRINTCHR$(46);:NEXTX:CY= 13 :REM"[141][147]
4522 CX[178] 13 :[141]57000:[143]"GOSUBLOAD
4525 FL=  3 :REM"[141][147]
4530 TY$[178] "A":[143]"GOSUBLOAD
4535 GOSUB 21000:REM"[141][147]
4540 [139] [195](T$)[178]0 [167]  4555 :[143]"GOSUBLOAD
4542 IF ASC(T$)=60 THEN  4405 :REM"[141][147]
4545 F$( 5 ) [178] T$:[143]"GOSUBLOAD
4555 IFLEFT$(F$( 5 ),1)=CHR$(32)THENF$( 5 )=MID$(F$( 5 ),2):GOTO  4555 :REM"[141][147]
4560 F$( 5 )[178]F$( 5 )[170][202](BS$,1, 3 [171][195](F$( 5 ))):F( 5 )[178][197](F$( 5 )):[143]"GOSUBLOAD
4570 CY= 13 :CX= 13 :GOSUB57000:PRINT F$( 5 );:REM"[141][147]
4603 [143]:[143]"GOSUBLOAD
4604 REM:REM"[141][147]
4605 [143] FIELD NUMBER  6  IS ENTER COUNTER NUMBER:[143]"GOSUBLOAD
4610 REM FIELD LENGTH IS  4 :REM"[141][147]
4615 [143] FIELD TYPE IS N:[143]"GOSUBLOAD
4620 CY= 15 :CX= 19 :GOSUB57000:REM"[141][147]
4621 [129]X[178]1[164] 4 :[153][199](46);:[130]X:CY[178] 15 :[143]"GOSUBLOAD
4622 CX= 19 :GOSUB57000:REM"[141][147]
4625 FL[178]  4 :[143]"GOSUBLOAD
4630 TY$= "N":REM"[141][147]
4635 [141] 21000:[143]"GOSUBLOAD
4640 IF LEN(T$)=0 THEN  4655 :REM"[141][147]
4642 [139] [198](T$)[178]60 [167]  4505 :[143]"GOSUBLOAD
4643 GOSUB 23000: REM .. NUMERIC CHECK ...:REM"[141][147]
4644 [139] N[178]0 [167]  4605 :[143]"GOSUBLOAD
4645 F$( 6 ) = T$:REM"[141][147]
4653 F( 6 )[178][197](F$( 6 )):[143]"GOSUBLOAD
4655 IFLEFT$(F$( 6 ),1)=CHR$(32)THENF$( 6 )=MID$(F$( 6 ),2):GOTO  4655 :REM"[141][147]
4656 F$( 6 )[178][202](F$( 6 ),1, 4 ):[143]"GOSUBLOAD
4660 F$( 6 )=F$( 6 )+MID$(BS$,1, 4 -LEN(F$( 6 ))):F( 6 )=VAL(F$( 6 )):REM"[141][147]
4670 CY[178] 15 :CX[178] 19 :[141]57000:[153] F$( 6 );:[143]"GOSUBLOAD
5000 REM:REM"[141][147]
10000 [143] ...IF UPDATE SWITCH IS YES THEN SKIP NEXT SECTION:[143]"GOSUBLOAD
10005 IF UPDATE$="YES" THEN X=LR:GOTO12616:REM"[141][147]
12000 [143]:[143]"GOSUBLOAD
12010 REM ...RANDOM WRITE:REM"[141][147]
12500 [143] ...LOOK FOR SPACE TO WRITE RECORD:[143]"GOSUBLOAD
12505 FORX=1TOEF:REM"[141][147]
12510 [139]A$(X)[178]""[167]12616:[143]"GOSUBLOAD
12515 NEXTX:REM"[141][147]
12520 EF[178]X:[143]"GOSUBLOAD
12615 REM ...WRITE KEY:REM"[141][147]
12616 [159] 2,8,2,V2$:[143]"GOSUBLOAD
12617 HX=FNH(X):LX=FNL(X):A$(X)=K$:PRINT#3,"P"CHR$(2)CHR$(LX)CHR$(HX)CHR$(1):REM"[141][147]
12620 [139]K$[178]" "[167]A$(X)[178]"":[143]"GOSUBLOAD
12625 PRINT#2,K$;:REM"[141][147]
12630 [160]2:[143]"GOSUBLOAD
12700 REM ...WRITE TO MASTER FILE:REM"[141][147]
12703 F$[178]"":[143]"GOSUBLOAD
12705 LR=X:REM"[141][147]
12707 [159] 1,8,2,V1$:[143]"GOSUBLOAD
12710 HO=HX:LO=LX:REM"[141][147]
12715 [129]X[178]1[164]T:[139]TY$(X)[178]"Z"[167]12730:[143]"GOSUBLOAD
12720 F$=F$+F$(X):REM"[141][147]
12730 [130]X:[143]"GOSUBLOAD
12735 F1$=MID$(F$,1,78):F2$=MID$(F$,79,78):F3$=MID$(F$,157,78):F4$=MID$(F$,235):REM"[141][147]
12750 [152]3,"P"[199](2)[199](LO)[199](HO)[199](1):[143]"GOSUBLOAD
12755 PRINT#1,"*"F1$CR$"*"F2$CR$"*"F3$CR$"*"F4$;:REM"[141][147]
12757 [132]3,E,E$,TT,SS:[143]"GOSUBLOAD
12760 CLOSE1:REM"[141][147]
12800 [137]700:[143]"GOSUBLOAD
14000 REM:REM"[141][147]
14002 X[178]0:[143]"GOSUBLOAD
14005 UPDATE$="S":REM ...SET UPDATE FLAG TO SEARCH:REM"[141][147]
14010 [141]57500:[153]"SEARCH FOR? - ";:[143]"GOSUBLOAD
14020 FL=30:REM ...MAXIMUM LENGTH OF SEARCH STRING:REM"[141][147]
14030 TY$[178]"A":[143] ...SEARCH STRING IS ALPHA-NUMERIC:[143]"GOSUBLOAD
14035 GOSUB21000:REM"[141][147]
14037 Q$[178]T$:[143]"GOSUBLOAD
14038 GOSUB57500:PRINT"[149]PRESS ANY KEY TO STOP SEARCH";:FL=1:TY$="A":REM"[141][147]
14040 LQ$[178][200](Q$,1):LQ[178][195](Q$):[143]"GOSUBLOAD
14042 OPEN 1,8,2,V1$:REM"[141][147]
14045 [129]LR[178]1[164]EF:[143]"GOSUBLOAD
14050 INPUT#1,F1$,F2$,F3$,F4$:GETA$:IFA$<>""THENCLOSE1:GOTO700:REM"[141][147]
14060 [139]A$(LR)[178]""[167]14093:[143]"GOSUBLOAD
14070 F$=MID$(F1$,2)+MID$(F2$,2)+MID$(F3$,2)+MID$(F4$,2):FP=1:FORZ=1TOT:REM"[141][147]
14080 [129]Y[178]FP[164]FP[170]FL(Z)[171]LQ:[139][202](F$,Y,1)[178]LQ$[167][139][202](F$,Y,LQ)[178]Q$[167]14100:[143]"GOSUBLOAD
14085 NEXTY:FP=FP+FL(Z):NEXTZ:REM"[141][147]
14093 [130]LR:[143]"GOSUBLOAD
14095 GOSUB57500:PRINT"NOT IN FILE[149]":GOSUB60000:CLOSE1:GOTO700:REM"[141][147]
14100 [141]15390:[143]"GOSUBLOAD
14200 GOSUB57500:PRINT"<N>[151] NEXT  <S>[151] STOP - ";:REM"[141][147]
14210 TY$[178]"A":FL[178]1:[141]21000:[143]"GOSUBLOAD
14220 IF T$="N"THEN14093:REM"[141][147]
14230 [139] T$[178]"S"[167][160]1:[137]700:[143]"GOSUBLOAD
14240 GOTO14200:REM"[141][147]
14300 [143]:[143]"GOSUBLOAD
15000 REM:REM"[141][147]
15002 [143] ...GET RECORD:[143]"GOSUBLOAD
15003 REM:REM"[141][147]
15060 FL[178]FL(KF):[143]"GOSUBLOAD
15065 CX=CX(KF)-1:CY=CY(KF)-1:GOSUB57000:REM"[141][147]
15070 TY$[178]"A":[143]"GOSUBLOAD
15080 GOSUB 21000:REM"[141][147]
15110 [139] [195](T$)[178]0 [167]700:[143]"GOSUBLOAD
15120 IFZ2$(KF)="N"THENGOSUB23000:IFN=0THEN15000:REM"[141][147]
15200 K$[178]T$:[143]"GOSUBLOAD
15210 K$=K$+MID$(BS$,1,FL-LEN(K$)):REM"[141][147]
15300 [129] X[178]1[164]EF:[143]"GOSUBLOAD
15310 IFA$(X)=K$THEN15340:REM"[141][147]
15315 [130]X:[143]"GOSUBLOAD
15320 GOSUB57500:PRINT"RECORD NOT IN FILE[149]";:GOSUB60000:GOTO700:REM"[141][147]
15340 LR[178]X:[143]"GOSUBLOAD
15345 HO=FNH(LR):LO=FNL(LR):REM"[141][147]
15353 [159] 1,8,2,V1$:[143]"GOSUBLOAD
15365 PRINT#3,"P"CHR$(2)CHR$(LO)CHR$(HO)CHR$(1):REM"[141][147]
15370 [132]1,F1$,F2$,F3$,F4$:[143]"GOSUBLOAD
15380 F$=MID$(F1$,2)+MID$(F2$,2)+MID$(F3$,2)+MID$(F4$,2):REM"[141][147]
15385 [160]1:[143]"GOSUBLOAD
15390 REM PRINT RECORD:REM"[141][147]
15400 FP[178]1:[143]"GOSUBLOAD
15410 FORZ=1TOT:IFTY$(Z)="Z"THEN15440:REM"[141][147]
15420 F$(Z)[178][202](F$,FP,FL(Z)):FP[178]FP[170]FL(Z):[143]"GOSUBLOAD
15440 NEXTZ:REM"[141][147]
17009 F( 3 )[178][197](F$( 3 )):[143]"GOSUBLOAD
17010 Z= 3 :ZZ= 0 :GOSUB 54000:REM"[141][147]
17018 F( 6 )[178][197](F$( 6 )):[143]"GOSUBLOAD
17019 Z= 6 :ZZ= 0 :GOSUB 54000:REM"[141][147]
17502 CY[178] 6 :CX[178] 1 :[141]57000:[153]F$( 1 );:[143]"GOSUBLOAD
17504 CY= 7 :CX= 1 :GOSUB57000:PRINTF$( 2 );:REM"[141][147]
17506 CY[178] 9 :CX[178] 20 :[141]57000:[153]F$( 3 );:[143]"GOSUBLOAD
17508 CY= 11 :CX= 15 :GOSUB57000:PRINTF$( 4 );:REM"[141][147]
17510 CY[178] 13 :CX[178] 13 :[141]57000:[153]F$( 5 );:[143]"GOSUBLOAD
17512 CY= 15 :CX= 19 :GOSUB57000:PRINTF$( 6 );:REM"[141][147]
18200 [139]UPDATE$[178]"S"[167][142]:[143]"GOSUBLOAD
18500 GOSUB57500:PRINT"<C>[151] CHANGE  <N>[151] NEXT  <D>[151] DELETE - ";:REM"[141][147]
18510 FL[178]1:[143]"GOSUBLOAD
18520 TY$="A":REM"[141][147]
18530 [141]21000:[143]"GOSUBLOAD
18550 IFT$="C"THEN4100:REM"[141][147]
18555 [139]T$[178]"N"[167]15315:[143]"GOSUBLOAD
18557 IFT$="D"THEN19000:REM"[141][147]
18560 [137]700:[143]"GOSUBLOAD
19000 REM ...DELETE RECORD:REM"[141][147]
19005 [141]57500:[153]"OPENARE YOU SURE? (Y/N) - VERIFY";:FL[178]1:[141]21000:[143]"GOSUBLOAD
19006 IFT$="Y"THEN19010:REM"[141][147]
19007 [139]T$[178]"N"[167]4000:[143]"GOSUBLOAD
19008 GOTO19005:REM"[141][147]
19010 K$[178]" ":[143] ...BLANK KEY:[143]"GOSUBLOAD
19020 FORZ=1TOT:F$(Z)=" ":NEXTZ:REM"[141][147]
19030 [137]12616 :[143] ...GOTO KEY AND MASTER WRITE ROUTINE:[143]"GOSUBLOAD
21000 REM ...ALPHA NUMERIC KEYBOARD SCAN:REM"[141][147]
21005 T$[178]"":[143]"GOSUBLOAD
21015 GETA$:PRINT"_[151]"CHR$(157)CHR$(32)CHR$(157);:REM"[141][147]
21020 [143]:[143]"GOSUBLOAD
21030 IFA$=""THEN21015:REM"[141][147]
21040 [139]A$[178]CR$[167]21300:[143]"GOSUBLOAD
21050 IF(A$=BK$ORA$=CHR$(20))ANDLEN(T$)>0THENPRINTBC$;:REM"[141][147]
21055 [139](A$[178]BK$[176]A$[178][199](20))[175][195](T$)[177]0[167]T$[178][200](T$,[195](T$)[171]1):[143]"GOSUBLOAD
21065 IFA$>CHR$(31)ANDA$<CHR$(96)THEN21100:REM"[141][147]
21070 [137]21015:[143]"GOSUBLOAD
21100 IFLEN(T$)+1>FLTHEN21015:REM"[141][147]
21110 T$[178]T$[170]A$:[143]"GOSUBLOAD
21115 PRINTA$;:REM"[141][147]
21120 [137]21015:[143]"GOSUBLOAD
21300 RETURN:REM"[141][147]
23000 [143] ...CHECK FOR VALID NUMERIC:[143]"GOSUBLOAD
23005 F1=0:F2=0:N=0:REM"[141][147]
23007 [139]T$[178]""[167]23090:[143]"GOSUBLOAD
23010 FORX=1TOLEN(T$):REM"[141][147]
23020 AX[178][198]([202](T$,X,1)):[143]"GOSUBLOAD
23030 IFAX<45ORAX>57THEN23100:REM"[141][147]
23060 [139]AX[178]47[167]23100:[143]"GOSUBLOAD
23070 NEXTX:REM"[141][147]
23090 N[178]1:[143]"GOSUBLOAD
23100 RETURN:REM"[141][147]
40000 [141]57500:[153]"LOAD ARE YOU SURE? (Y/N)":[143]"GOSUBLOAD
40001 GETT$:IFT$="Y"THEN40010:REM"[141][147]
40002 [139]T$[178]"N"[167]ZY[178]0:[137]700:[143]"GOSUBLOAD
40003 GOTO40001:REM"[141][147]
40010 [160]1:[160]2:[160]3:[158]64738:[143]"GOSUBLOAD
40020 REM:REM"[141][147]
40030 [143]:[143]"GOSUBLOAD
40040 REM:REM"[141][147]
45000 [143] REL PROMP:[143]"GOSUBLOAD
45005 UPDATE$="S":REM"[141][147]
45010 LC[178]0:[143]"GOSUBLOAD
45015 FC=0:C1=1:CP=0:BF=0:REM"[141][147]
45020 [141]57500:[153]"VERIFYPRESS <RETURN>VERIFY TO GET TO THE FIELD":[143]"GOSUBLOAD
45021 PRINT"YOU WANT TO SEARCH ON..";:REM"[141][147]
45025 FL[178]1:[141]21000:[143]"GOSUBLOAD
45030 GOSUB57500:PRINT"... THEN, TYPE IN WHAT YOU WANT TO":REM"[141][147]
45031 [153]"SEARCH FOR.";:[143]"GOSUBLOAD
45035 FC=FC+1:IFFC>TTHEN4000:REM"[141][147]
45037 [139]TY$(FC)[178]"Z"[167]45035:[143]"GOSUBLOAD
45040 FL=FL(FC):CY=CY(FC)-1:CX=CX(FC)-1:GOSUB57000:REM"[141][147]
45045 [141]21000:[139]TY$(FC)[179][177]"N"[167]45050:[143]"GOSUBLOAD
45047 GOSUB23000:IFN=0THENCY=CY(FC)-1:CX=CX(FC)-1:GOSUB57000:REM"[141][147]
45048 [139]N[178]0[167][129]X[178]1[164]FL(FC):[153]"TO";:[130]X:[137]45040:[143]"GOSUBLOAD
45050 IFT$<>""THEN45070:REM"[141][147]
45065 C1[178]C1[170]FL(FC):[137]45035:[143]"GOSUBLOAD
45070 SS$=T$:REM"[141][147]
45075 [139]TY$(FC)[179][177]"N"[167]CP[178]4:[137]45115:[143]"GOSUBLOAD
45080 GOSUB57500:PRINT"THE FIELD YOU ARE SEARCHING":REM"[141][147]
45081 [153]"IS A NUMBER FIELD...";:[143]"GOSUBLOAD
45082 GOSUB60000:GOSUB6000:REM"[141][147]
45085 [141]57500:[153]"YOU MAY SEARCH FOR RECORDS THAT ARE...";:[141]60000:[143]"GOSUBLOAD
45090 GOSUB60000:GOSUB57500:PRINT"EQUAL, LESS OR GREATER THAN THE":REM"[141][147]
45091 [153]"NUMBER ENTERED (E,L OR G)";:FL[178]1:[141]21000:[143]"GOSUBLOAD
45095 IFT$=""THEN45090:REM"[141][147]
45100 [139][198](T$)[177]90[167]T$[178][199]([198](T$)[171]32):[143]"GOSUBLOAD
45105 IFT$="E"THENCP=1:REM"[141][147]
45106 [139]T$[178]"L"[167]CP[178]2:[143]"GOSUBLOAD
45107 IFT$="G"THENCP=3:REM"[141][147]
45110 [139] CP[179]1[176]CP[177]3[167]45090:[143]"GOSUBLOAD
45115 OPEN 1,8,2,V1$:REM"[141][147]
45120 LS$[178][200](SS$,1):LS[178][195](SS$):[143]"GOSUBLOAD
45122 FORLR=1TOEF:INPUT#1,F1$,F2$,F3$,F4$:REM"[141][147]
45146 F$[178][202](F1$,2)[170][202](F2$,2)[170][202](F3$,2)[170][202](F4$,2):RS$[178][202](F$,C1,FL(FC)):[143]"GOSUBLOAD
45160 ON CP GOTO 45165,45175,45185,45195:REM"[141][147]
45165 [143] EQUAL:[143]"GOSUBLOAD
45170 IFVAL(RS$)=VAL(SS$)THENGOSUB15390:GOTO45210:REM"[141][147]
45172 [137]45200:[143]"GOSUBLOAD
45175 REM LESS:REM"[141][147]
45180 [139][197](RS$)[179][197](SS$)[167][141]15390:[137]45210:[143]"GOSUBLOAD
45182 GOTO45200:REM"[141][147]
45185 [143] GREATER:[143]"GOSUBLOAD
45190 IFVAL(RS$)>VAL(SS$)THENGOSUB15390:GOTO45210:REM"[141][147]
45192 [137]45200:[143]"GOSUBLOAD
45195 FORX=1TOLEN(RS$)-LS+1:REM"[141][147]
45196 [139][202](RS$,X,1)[178]LS$[167][139][202](RS$,X,LS)[178]SS$[167][141]15390:[137]45210:[143]"GOSUBLOAD
45198 NEXTX:REM"[141][147]
45200 [161]A$:[139]A$[179][177]""[167][160]1:[137]700:[143]"GOSUBLOAD
45205 NEXTLR:REM"[141][147]
45207 [160]1:[141]57500:[153]"NOT IN FILE":[141]60000:[137]700:[143]"GOSUBLOAD
45210 GOSUB57500:PRINT"<N>EXT, <S>TOP - ";:FL=1:GOSUB21000:REM"[141][147]
45215 [139]T$[178]"N"[167][141]57500:[153]"PRESS ANY KEY TO STOP SEARCH - ";:[143]"GOSUBLOAD
45216 IFT$="N"THEN45205:REM"[141][147]
45220 [139]T$[178]"S"[167][160]1:[137]700:[143]"GOSUBLOAD
45230 GOTO45210:REM"[141][147]
54000 [143] FORMAT NUMBER:[143]"GOSUBLOAD
54005 FF$=STR$(INT(F(Z)*10^ZZ+.5)/10^ZZ):LF=LEN(FF$):REM"[141][147]
54010 [129]DP[178]1[164]LF:[139][202](FF$,DP,1)[178]"."[167]54030:[130]DP:[139]ZZ[177]0[167]FF$[178]FF$[170]".":[143]"GOSUBLOAD
54020 NEXTDP:IFZZ>0THENFF$=FF$+".":REM"[141][147]
54025 [139]ZZ[178]0[167]DP$[178]"":[137]54040:[143]"GOSUBLOAD
54030 DP$=MID$(FF$,DP):DP$=DP$+LEFT$("0000000000",ZZ+1-LEN(DP$)):REM"[141][147]
54040 FF$[178][200](FF$,DP[171]1)[170]DP$:[143]"GOSUBLOAD
54045 IF VAL(FF$)>0 THEN FF$=MID$(FF$,2):REM"[141][147]
54050 [139] [195](FF$)[179]FL(Z)[167]54060:[143]"GOSUBLOAD
54055 F$(Z)=FF$:RETURN:REM"[141][147]
54060 F$(Z)[178][200](BS$,FL(Z)[171][195](FF$))[170]FF$:[142]:[143]"GOSUBLOAD
54100 REM:REM"[141][147]
54200 [143]:[143]"GOSUBLOAD
55000 RUN:REM"[141][147]
55100 [143]:[143]"GOSUBLOAD
57000 REM ...LOCATE CURSOR:REM"[141][147]
57010 [151]783,0:[143]"GOSUBLOAD
57015 POKE781,CY:REM CURSOR ROW:REM"[141][147]
57020 [151]782,CX:[143] CURSOR COLUMN:[143]"GOSUBLOAD
57030 SYS65520:REM"[141][147]
57100 [142]:[143]"GOSUBLOAD
57500 FORZ=1TO100:NEXT:REM ...LOCATE CURSOR AT BOTTOM OF SCREEN:REM"[141][147]
57502 TT[178]60:DD[178]100:SS[178]54273:[151]SS,TT:[151]SS[170]5,240:[151]SS[170]23,5:[151]SS[170]3,17:[143]"GOSUBLOAD
57505 FORAA=1TODD:NEXT:POKESS+23,0:POKESS,0:REM"[141][147]
57510 [151]783,0:[151]781,22:[151]782,0:[143]"GOSUBLOAD
57515 SYS65520:REM"[141][147]
57520 [153]BS$:[153]BS$;:[143]"GOSUBLOAD
57525 POKE783,0:POKE781,22:POKE782,0:REM"[141][147]
57530 [158]65520:[143]"GOSUBLOAD
57550 RETURN:REM"[141][147]
58000 [143] ...BUILD BLANK STRING:[143]"GOSUBLOAD
58010 FORX=1TOSW:REM"[141][147]
58015 BS$[178]BS$[170]" ":[143]"GOSUBLOAD
58020 NEXTX:REM"[141][147]
58030 [142]:[143]"GOSUBLOAD
60000 REM ...TIME DELAY LOOP:REM"[141][147]
60010 [129]Z[178]1[164]700:[143]"GOSUBLOAD
60020 NEXTZ:REM"[141][147]
60030 [142]:[143]"GOSUBLOAD